home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 June: Reference Library / Dev.CD Jun 99 RL Disk 1.toast / Technical Documentation / Develop / develop Issue 28 / develop Issue 28 code / MacApp Debugging / TwistDownLists / UTwistDownApp.cp < prev    next >
Encoding:
Text File  |  1996-09-23  |  58.4 KB  |  1,872 lines  |  [TEXT/MPS ]
  1. //----------------------------------------------------------------------------------------
  2. // UTwistDownApp.cp
  3. // ETO20 MacApp 3.3.1, MPW 3.4.1
  4. // Copyright ©1994-1996 Conrad Kopala
  5. // Twist Down Lists version 2.0a0 7/15/96
  6. //----------------------------------------------------------------------------------------
  7.  
  8. #ifndef __UTWISTDOWNAPP__
  9. #include "UTwistDownApp.h"
  10. #endif
  11.  
  12. #ifndef __UTWISTDOWNDOCUMENT__
  13. #include "UTwistDownDocument.h"
  14. #endif
  15.  
  16. #ifndef __UTWISTDOWNELEMENT__
  17. #include "UTwistDownElement.h"
  18. #endif
  19.  
  20. #ifndef __UTWISTDOWNCONTROL__
  21. #include "UTwistDownControl.h"
  22. #endif
  23.  
  24. #ifndef __UTWISTDOWNVIEW__
  25. #include "UTwistDownView.h"
  26. #endif
  27.  
  28. //MacApp stuff
  29. #ifndef __UAPPLEEVENTS__
  30. #include "UAppleEvents.h"        //PPC
  31. #endif
  32.  
  33. #ifndef __UCLIPBOARDMGR__
  34. #include "UClipboardMgr.h"        //PPC
  35. #endif
  36.  
  37. #ifndef __UDEBUG__
  38. #include "UDebug.h"        //PPC
  39. #endif
  40.  
  41. #ifndef __UDIALOG__
  42. #include "UDialog.h"
  43. #endif
  44.  
  45. #ifndef __UDIALOGBEHAVIOR__
  46. #include "UDialogBehavior.h"
  47. #endif
  48.  
  49. #ifndef __UERRORMGR__
  50. #include "UErrorMgr.h"        //PPC    messageNewFailed
  51. #endif
  52.  
  53. #ifndef __UFAILURE__
  54. #include "UFailure.h"        //PPC
  55. #endif
  56.  
  57. #ifndef __UMENUMGR__
  58. #include "UMenuMgr.h"
  59. #endif
  60.  
  61. #ifndef __OBJECTHEAP__
  62. #include "ObjectHeap.h"        //for MacApp 3.5
  63. #endif
  64.  
  65. #ifndef __USCRIPTING__
  66. #include "UScripting.h"    //PPC gMacAppAppleEventIdleProc
  67. #endif
  68.  
  69. #ifndef __UVIEWSERVER__
  70. #include "UViewServer.h"
  71. #endif
  72.  
  73. #ifndef __UWINDOW__
  74. #include "UWindow.h"
  75. #endif
  76.  
  77. #ifndef __UCLASSDESC__
  78. #include "UClassDesc.h"
  79. #endif
  80.  
  81. #ifndef __UCLASSDESCITERATOR__
  82. #include "UClassDescIterator.h"
  83. #endif
  84.  
  85. //ToolBox stuff
  86.  
  87. #ifndef __AEREGISTRY__
  88. #include "AERegistry.h"
  89. #endif
  90.  
  91. #ifndef __FONTS__            //required for the diamondMark used in the Windows menu
  92. #include "Fonts.h"
  93. #endif
  94.  
  95. #ifndef __MENUS__
  96. #include "Menus.h"
  97. #endif
  98.  
  99. #ifndef __RESOURCES__
  100. #include "Resources.h"
  101. #endif
  102.  
  103. //ANSI stuff
  104. //None
  105.  
  106. //----------------------------------------------------------------------------------------
  107. //gGlobals:
  108. TTwistDownApp* gTwistDownApp;
  109.  
  110. //----------------------------------------------------------------------------------------
  111. // Constants:
  112.  
  113.  
  114.         
  115. //========================================================================================
  116. // CLASS CWindowsMenuListIterator
  117. //========================================================================================
  118. #undef Inherited
  119.  
  120. //----------------------------------------------------------------------------------------
  121. // CWindowsMenuListIterator::CWindowsMenuListIterator: 
  122. //----------------------------------------------------------------------------------------
  123. #pragma segment MAApplicationRes
  124. CWindowsMenuListIterator::CWindowsMenuListIterator(TTwistDownApp* itsApplication,
  125.                                      ArrayIndex itsLowBound, ArrayIndex itsHighBound, Boolean itsForward) :
  126. CObjectIterator(itsApplication ? itsApplication->fWindowsMenuList : NULL, 
  127.                                     itsLowBound, itsHighBound, itsForward)
  128.  
  129. {
  130. //not used, could take out?
  131. } 
  132. //----------------------------------------------------------------------------------------
  133. // CWindowsMenuListIterator::CWindowsMenuListIterator: 
  134. //----------------------------------------------------------------------------------------
  135. #pragma segment MAApplicationRes
  136. CWindowsMenuListIterator::CWindowsMenuListIterator(TTwistDownApp* itsApplication,
  137.                                      Boolean itsForward) :
  138.     CObjectIterator(itsApplication ? itsApplication->fWindowsMenuList : NULL, itsForward)
  139. {
  140. //not used, could take out?
  141. }
  142. //----------------------------------------------------------------------------------------
  143. // CWindowsMenuListIterator::CWindowsMenuListIterator: 
  144. //----------------------------------------------------------------------------------------
  145. #pragma segment MAApplicationRes
  146. CWindowsMenuListIterator::CWindowsMenuListIterator(TTwistDownApp* itsApplication) :
  147.     CObjectIterator(itsApplication ? itsApplication->fWindowsMenuList : NULL)
  148. {
  149. //used
  150. }
  151. //----------------------------------------------------------------------------------------
  152. // CWindowsMenuListIterator::~CWindowsMenuListIterator: 
  153. //----------------------------------------------------------------------------------------
  154. #pragma segment IteratorRes
  155. CWindowsMenuListIterator::~CWindowsMenuListIterator()
  156. {
  157.  
  158. }
  159. //----------------------------------------------------------------------------------------
  160. // CWindowsMenuListIterator::CurrentWindow: 
  161. //----------------------------------------------------------------------------------------
  162. #pragma segment MAApplicationRes
  163. TWindow* CWindowsMenuListIterator::CurrentWindow()
  164. {
  165.     return (TWindow*)this->CurrentObject();
  166. }
  167. //----------------------------------------------------------------------------------------
  168. // CWindowsMenuListIterator::FirstWindow: 
  169. //----------------------------------------------------------------------------------------
  170. #pragma segment MAApplicationRes
  171. TWindow* CWindowsMenuListIterator::FirstWindow()
  172. {
  173.     return (TWindow*)this->FirstObject();
  174. }
  175. //----------------------------------------------------------------------------------------
  176. // CWindowsMenuListIterator::NextWindow: 
  177. //----------------------------------------------------------------------------------------
  178. #pragma segment MAApplicationRes
  179. TWindow* CWindowsMenuListIterator::NextWindow()
  180. {
  181.     return (TWindow*)this->NextObject();
  182. }
  183.  
  184. //========================================================================================
  185. // CLASS TTwistDownApp
  186. //========================================================================================
  187. #undef Inherited
  188. #define Inherited TApplication
  189.  
  190. #pragma segment MAInit
  191. MA_DEFINE_CLASS_M2(TTwistDownApp, Inherited, MVolumeBasedApp);
  192. //----------------------------------------------------------------------------------------
  193. // TTwistDownApp::TTwistDownApp
  194. //----------------------------------------------------------------------------------------
  195. #pragma segment MAInit
  196. TTwistDownApp::TTwistDownApp() : MVolumeBasedApp()
  197. {
  198.  
  199. gTwistDownApp = this;
  200. gSendAppleEvents = TRUE;
  201. gUseSystemDirection = TRUE;
  202. gAppleEventRouting = routeToDoc;
  203.  
  204. fMainFileType = kFileType;
  205. fLaunchWithNewDocument = FALSE;
  206.  
  207. fHasSplashScreen = !kHasSplashScreen;    //For openers, assume no splash screen.
  208.  
  209. fWindowsMenuList = NULL;
  210. fShowInvisibleFiles = FALSE;
  211.  
  212. fAllowUnlimitedDocs = FALSE;
  213.  
  214. fTDElementClassSize = 0;    //the class size of TTwistDownElement
  215. fTDControlClassSize = 0;    //the class size of TTwistDownControl
  216.  
  217. #if qDebug
  218. this -> PrintAppConstructorClassInfo();
  219. #endif
  220.  
  221. }
  222. //----------------------------------------------------------------------------------------
  223. // TTwistDownApp::~TTwistDownApp
  224. //----------------------------------------------------------------------------------------
  225. #pragma segment MADestructorRes
  226. TTwistDownApp::~TTwistDownApp()
  227. {
  228.  
  229. fWindowsMenuList = (TList*)FreeListIfObject(fWindowsMenuList);
  230.  
  231. #if qDebug
  232. this -> PrintAppDestructorClassInfo();
  233. #endif
  234.  
  235. }
  236. //----------------------------------------------------------------------------------------
  237. // TTwistDownApp::ITwistDownApp: 
  238. //----------------------------------------------------------------------------------------
  239. #pragma segment MAInit
  240. void TTwistDownApp::ITwistDownApp(Boolean hasSplashScreen)
  241. {
  242.     this -> IApplication(kFileType, kSignature);
  243.  
  244. fHasSplashScreen = hasSplashScreen;
  245.  
  246.     fWindowsMenuList = NewList();
  247. #if qDebug
  248.     fWindowsMenuList->SetEltType("TWindow");
  249. #endif
  250.     
  251.     AppendResMenu(MAGetMenu(mFontMenu), 'FONT');
  252.  
  253. //The class size of TTwistDownElement and TTwistDownControl is used to determine
  254. //if there is enough space in the object heap to open a volume. Get their class sizes
  255. //now and save them, because later on when they're needed, there may not be enough space 
  256. //left in the ObjectHeap to do it.
  257.  
  258. TTwistDownElement* twistDownElement = new TTwistDownElement;
  259. CStr63 displayedText = gEmptyString;
  260. twistDownElement -> ITwistDownElement(NULL, 0, displayedText);
  261. fTDElementClassSize = (short)(twistDownElement -> GetClassSize());
  262. twistDownElement = (TTwistDownElement*)FreeIfObject(twistDownElement);
  263.  
  264. TTwistDownControl* twistDownControl = new TTwistDownControl;
  265. VPoint itsLocation = gZeroVPt;
  266. twistDownControl -> ITwistDownControl(itsLocation, NULL,NULL);
  267. fTDControlClassSize = (short)(twistDownControl -> GetClassSize());
  268. twistDownControl = (TTwistDownControl*)FreeIfObject(twistDownControl);
  269.  
  270. //Note: If IApplication can post a TEventRetrieverCommand, I can post 
  271. //a TSplashScreenCommand here too.
  272. if (fHasSplashScreen)
  273.     {
  274.         TSplashScreenCommand* aSplashScreenCommand = NULL;
  275.  
  276.         aSplashScreenCommand = new TSplashScreenCommand;
  277.         aSplashScreenCommand -> ISplashScreenCommand(cSplashScreen);
  278.         this -> PostCommand(aSplashScreenCommand);
  279.     }
  280.  
  281. }
  282. //----------------------------------------------------------------------------------------
  283. // TTwistDownApp::GetNextDocumentNumber: used by TTwistDownDocument::SetVolumeData:
  284. //----------------------------------------------------------------------------------------
  285. //Twist Down Lists can open the same volume many times. The following method is used to determine
  286. //the number of times a given volume has been opened. It returns a count of the number of times
  287. //a given volume has been opened plus 1. That value is used by 
  288. //TTwistDownDocument::SetVolumeData(short volumeRefNumber, CStr31 volumeName)
  289. //to establish a unique document title. Note that scripting support requires that
  290. //documents have unique titles. 
  291. #pragma segment AOpen
  292. short TTwistDownApp::GetNextDocumentNumber(const CStr31& volumeName)
  293. {
  294.     
  295.     short sameDocumentCount = 0;
  296.     short highestSameDocumentNumber = 0;
  297.     
  298.     CDocumentIterator iter(this);
  299.  
  300.     for (TDocument * aDocument = iter.FirstDocument(); iter.More(); aDocument = iter.NextDocument())
  301.         {
  302.             TTwistDownDocument* aTwistDownDocument = (TTwistDownDocument*)aDocument;
  303.             CStr31 itsVolumeName = aTwistDownDocument -> fVolumeName;
  304.             
  305.             if (itsVolumeName == volumeName)
  306.                 {
  307.                     sameDocumentCount++;
  308.                     short thisSameDocumentNumber = aTwistDownDocument -> fSameVolumeNumber;
  309.                     if (thisSameDocumentNumber > highestSameDocumentNumber)
  310.                         highestSameDocumentNumber = thisSameDocumentNumber;
  311.                 }
  312.         }
  313.     
  314.     if (sameDocumentCount == 0)
  315.         return sameDocumentCount + 1;
  316.     else
  317.         return highestSameDocumentNumber + 1;
  318. }
  319.  
  320. //----------------------------------------------------------------------------------------
  321. // TTwistDownApp::FindDocument:        //analog of FindDocument, overloaded
  322. //----------------------------------------------------------------------------------------
  323. #pragma segment MAFile
  324. TDocument* TTwistDownApp::FindDocument(TVolume* aVolume)
  325. {
  326.  
  327.     CDocumentIterator iter(this);
  328.  
  329.     for (TDocument * aDocument = iter.FirstDocument(); iter.More(); aDocument = iter.NextDocument())
  330.         {
  331.             TTwistDownDocument* aTwistDownDocument = (TTwistDownDocument*)aDocument;
  332.             if (aTwistDownDocument -> FindDocument(aVolume))
  333.                 return aDocument;
  334.         }
  335.     return NULL;                                // No document already open
  336.  
  337. }
  338. //----------------------------------------------------------------------------------------
  339. // TTwistDownApp::DoMakeDocument: overloaded
  340. //----------------------------------------------------------------------------------------
  341. #pragma segment AOpen
  342. TDocument* TTwistDownApp::DoMakeDocument(CommandNumber aCommandNumber, TVolume* itsVolume)
  343. {
  344. #pragma unused aCommandNumber
  345.     TTwistDownDocument* aTwistDownDocument = NULL;
  346.  
  347.     aTwistDownDocument = new TTwistDownDocument;
  348.     aTwistDownDocument -> ITwistDownDocument(itsVolume, fShowInvisibleFiles);
  349.  
  350.     return aTwistDownDocument;
  351.  
  352. }
  353. //----------------------------------------------------------------------------------------
  354. //    TTwistDownApp::DoSetupMenus    
  355. //----------------------------------------------------------------------------------------
  356. #pragma segment ARes
  357. void TTwistDownApp::DoSetupMenus()
  358. {
  359.  
  360. #if qDebug
  361. if (gAppUserFlag3)
  362.     {
  363.     fprintf(stderr, ">TTwistDownApp::DoSetupMenus upon entry\n");
  364.     PrintObjectCount();
  365.     fprintf(stderr, "\n");
  366.     DisplayMemoryInfo();
  367.     }
  368. #endif
  369.     
  370.     MenuRef theWindowsMenuRef = NULL;
  371.     
  372.     short theNumberOfWindows = 0;
  373.     
  374.     CWindowsMenuListIterator iter(this);
  375.     CStr255 theTitle = " ";
  376.     CStr255 dummyTitle = "Dummy Title";
  377.     short theMenuItem = 0;
  378.     
  379.     short counter = 0;
  380.     
  381.     Inherited::DoSetupMenus();
  382.  
  383.     Enable(cNew, FALSE);
  384.     EnableCheck(cShowInvisibleFiles,TRUE, fShowInvisibleFiles);
  385.     
  386.     Boolean haveMemory = !MemSpaceIsLow();
  387.     Enable(cOpen, haveMemory);
  388.  
  389.     theWindowsMenuRef = MAGetMenu(mWindowsMenu);
  390.     LockHandle((Handle)theWindowsMenuRef);    
  391.     if(theWindowsMenuRef != NULL)
  392.         theNumberOfWindows = CountMItems(theWindowsMenuRef);
  393.     
  394.     //first get rid of all the windows in the menu
  395.     
  396.     if (theNumberOfWindows != 0)
  397.         for (counter = 1; counter <= theNumberOfWindows; counter++)
  398.         {
  399.             DeleteMenuItem(theWindowsMenuRef, 1);
  400.             DisableItem(theWindowsMenuRef, 31);
  401.         }
  402.  
  403.     //now, put them in    
  404.     theNumberOfWindows = this -> CountWindowsInList();
  405.     
  406.     if (theNumberOfWindows != 0)
  407.         for (TWindow* aWindow = iter.FirstWindow(); iter.More(); aWindow = iter.NextWindow())
  408.             {
  409.                 theMenuItem++;
  410.                 aWindow -> GetTitle(theTitle);
  411.                 AppendMenu(theWindowsMenuRef, dummyTitle);        //in Menus.h
  412.                 SetMenuItemText(theWindowsMenuRef, theMenuItem, theTitle);    //in Menus.h
  413.                 EnableItem(theWindowsMenuRef, theMenuItem);
  414.                 if (aWindow == this -> GetActiveWindow(kNoFloaters))
  415.                     SetItemMark(theWindowsMenuRef, theMenuItem, diamondMark);                    
  416.             }
  417.     HUnlock((Handle)theWindowsMenuRef);
  418.     
  419.     
  420.     EnableCheck(cFailHere,TRUE, gFailHere);
  421.     EnableCheck(cAllowUnlimitedDocs, TRUE, fAllowUnlimitedDocs);
  422.     EnableCheck(cUseSystemDirection, TRUE, gUseSystemDirection );
  423.     EnableCheck(cSendAppleEvents, TRUE, gSendAppleEvents);
  424.  
  425. //Note: Though the cWritingDirection command is not accessible here, I want it to always be
  426. //in a known state. Without the following, the menuName seen by the user remains whatever
  427. //it was changed to by the last cWritingdirection command. Instances of TTwistDownView control
  428. //the command name seen for this item. However, if a twistDownView set it to Right-To-Left and
  429. //it is closed leaving no instance of TTwistDownView, then the command name seen for this item
  430. //would remain Right-To-Left. That is mightily disconcerting and, at first, you think the
  431. //application is acting up. Here we do make it behave consistently.
  432.  
  433. if (GetSysDirection() == 0)
  434.     SetIndividualCommandName(cWritingDirection, kMenuNameStrings, kRightToLeftNameIdx);
  435. else
  436.     SetIndividualCommandName(cWritingDirection, kMenuNameStrings, kLeftToRightNameIdx);
  437.     
  438. if (gAppleEventRouting == routeToDoc)
  439.     SetIndividualCommandName(cAppleEventRouting, kMenuNameStrings, kRouteToViewNameIdx);
  440. else
  441.     SetIndividualCommandName(cAppleEventRouting, kMenuNameStrings, kRouteToDocNameIdx);
  442.  
  443.     
  444. Enable(cAppleEventRouting, gSendAppleEvents);
  445.     
  446. #if qDebug
  447.     EnableCheck(cCountObjects, TRUE, gObjectCountingEnabled);
  448.     Enable(cResetObjectCount, TRUE);
  449.     EnableCheck(cPrintBaseClassInfo, TRUE, gPrintBaseClassInfo);    
  450.     EnableCheck(cPrintMacAppClassInfo, TRUE, gPrintMacAppClassInfo);    
  451.     EnableCheck(cPrintAppClassInfo, TRUE, gPrintAppClassInfo);    
  452.     EnableCheck(cAppUserFlag1, TRUE, gAppUserFlag1);
  453.     EnableCheck(cAppUserFlag2, TRUE, gAppUserFlag2);
  454.     EnableCheck(cAppUserFlag3, TRUE, gAppUserFlag3);    
  455. #endif
  456.  
  457. }
  458. //----------------------------------------------------------------------------------------
  459. //    TTwistDownApp::DoMenuCommand    
  460. //----------------------------------------------------------------------------------------
  461. #pragma segment ASelCommand
  462. void TTwistDownApp::DoMenuCommand(CommandNumber aCommandNumber)
  463. {
  464. short theMenu = 0;
  465. short theMenuItem = 0;
  466. TWindow* newFrontWindow = NULL;
  467.  
  468. CommandToMenuItem(aCommandNumber, theMenu, theMenuItem);    
  469.  
  470. if (theMenu == mWindowsMenu)
  471.     {
  472.         newFrontWindow = (TWindow*)fWindowsMenuList -> At(theMenuItem);
  473.         if (newFrontWindow != (gApplication->GetActiveWindow(kNoFloaters)))
  474.             newFrontWindow -> Select();
  475.     }
  476. else
  477.         switch (aCommandNumber) 
  478.             {
  479.                 case cShowInvisibleFiles:
  480.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  481.                         {
  482.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  483.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pShowInvisibleFiles);
  484.                             CTempDesc theNewValue;
  485.                             theNewValue.PutBoolean(!fShowInvisibleFiles);
  486.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  487.                             TAppleEvent * theReply = theEvent -> Send();
  488.                             FreeIfObject(theEvent);
  489.                             FreeIfObject(theReply);
  490.                         }
  491.                     else
  492.                         fShowInvisibleFiles = !fShowInvisibleFiles;
  493.                 break;            
  494.             
  495.                 case cFailHere:
  496.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  497.                         {
  498.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  499.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pFailHere);
  500.                             CTempDesc theNewValue;
  501.                             theNewValue.PutBoolean(!gFailHere);
  502.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  503.                             TAppleEvent * theReply = theEvent -> Send();
  504.                             FreeIfObject(theEvent);
  505.                             FreeIfObject(theReply);
  506.                         }
  507.                     else
  508.                         gFailHere = !gFailHere;
  509.                 break;
  510.                 
  511.                 case cAllowUnlimitedDocs:
  512.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  513.                         {
  514.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  515.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pUnlimitedDocs);
  516.                             CTempDesc theNewValue;
  517.                             theNewValue.PutBoolean(!fAllowUnlimitedDocs);
  518.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  519.                             TAppleEvent * theReply = theEvent -> Send();
  520.                             FreeIfObject(theEvent);
  521.                             FreeIfObject(theReply);
  522.                         }
  523.                     else
  524.                         fAllowUnlimitedDocs = !fAllowUnlimitedDocs;
  525.                 break;                
  526.                 
  527.                 case cSendAppleEvents:
  528.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() /*&& gSendAppleEvents*/)
  529.                         {
  530.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  531.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pSendAppleEvents);
  532.                             CTempDesc theNewValue;
  533.                             theNewValue.PutBoolean(!gSendAppleEvents);
  534.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  535.                             TAppleEvent * theReply = theEvent -> Send();
  536.                             FreeIfObject(theEvent);
  537.                             FreeIfObject(theReply);
  538.                         }
  539.                     else
  540.                         gSendAppleEvents = !gSendAppleEvents;                        
  541.                 break;
  542.  
  543. //Question: If gUseSystemDirection == FALSE, some twistDownViews may be in right-to-left
  544. //while others are in left-to-right. When the user changes gUseSystemDirection to TRUE,
  545. //should those TTwistDownViews that are not currently using the system direction be
  546. //changed to use it? At present, they don't change and they're locked in what ever
  547. //writing direction they were using when gUseSystemDirection was changed to TRUE.
  548.                 case cUseSystemDirection:
  549.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  550.                         {
  551.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  552.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pUseSystemDirection);
  553.                             CTempDesc theNewValue;
  554.                             theNewValue.PutBoolean(!gUseSystemDirection);
  555.                             theEvent -> WriteParameter(keyAEData, theNewValue);    
  556.                             TAppleEvent * theReply = theEvent -> Send();
  557.                             FreeIfObject(theEvent);
  558.                             FreeIfObject(theReply);
  559.                         }
  560.                     else
  561.                         gUseSystemDirection = !gUseSystemDirection;            
  562.                 break;                
  563.  
  564.                 case cAppleEventRouting:
  565.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  566.                         {
  567.                             DescType theAERouting;
  568.                                 
  569.                             if (gAppleEventRouting == routeToDoc)
  570.                                 theAERouting = kAERouteToView;
  571.                             else if(gAppleEventRouting == routeToView)
  572.                                 theAERouting = kAERouteToDoc;                            
  573.                             
  574.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  575.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pAERouting);
  576.                             CTempDesc theNewValue;
  577.                             theNewValue.PutEnum(theAERouting);
  578.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  579.                             TAppleEvent * theReply = theEvent -> Send();
  580.                             FreeIfObject(theEvent);
  581.                             FreeIfObject(theReply);
  582.                         }
  583.                     else
  584.                         {
  585.                             if (gAppleEventRouting == routeToDoc)
  586.                                 gAppleEventRouting = routeToView;
  587.                             else if(gAppleEventRouting == routeToView)
  588.                                 gAppleEventRouting = routeToDoc;
  589.                         }                        
  590.                 break;
  591.                                 
  592. #if qDebug
  593.                 case cCountObjects:
  594.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  595.                         {
  596.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  597.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pObjectCountingEnabled);
  598.                             CTempDesc theNewValue;
  599.                             theNewValue.PutBoolean(!gObjectCountingEnabled);
  600.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  601.                             TAppleEvent * theReply = theEvent -> Send();
  602.                             FreeIfObject(theEvent);
  603.                             FreeIfObject(theReply);
  604.                         }
  605.                     else
  606.                         gObjectCountingEnabled = !gObjectCountingEnabled;        
  607.                 break;
  608.  
  609.                 case cResetObjectCount:
  610.                     {
  611.                         TResetObjectCountCommand* aResetObjectCountCommand = new TResetObjectCountCommand;
  612.                         aResetObjectCountCommand -> IResetObjectCountCommand();
  613.                         if (gSendAppleEvents)
  614.                             aResetObjectCountCommand -> fUseAppleEvent = TRUE;
  615.                         this -> PostCommand(aResetObjectCountCommand);
  616.                     }
  617.                 break;
  618.                 
  619.                 case cPrintBaseClassInfo:
  620.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  621.                         {
  622.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  623.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pPrBaseClassInfo);
  624.                             CTempDesc theNewValue;
  625.                             theNewValue.PutBoolean(!gPrintBaseClassInfo);
  626.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  627.                             TAppleEvent * theReply = theEvent -> Send();
  628.                             FreeIfObject(theEvent);
  629.                         FreeIfObject(theReply);
  630.                             }
  631.                     else        
  632.                         gPrintBaseClassInfo = !gPrintBaseClassInfo;
  633.                 break;
  634.  
  635.                 case cPrintMacAppClassInfo:
  636.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  637.                         {
  638.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  639.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pPrMacAppClassInfo);
  640.                             CTempDesc theNewValue;
  641.                             theNewValue.PutBoolean(!gPrintMacAppClassInfo);
  642.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  643.                             TAppleEvent * theReply = theEvent -> Send();
  644.                             FreeIfObject(theEvent);
  645.                             FreeIfObject(theReply);
  646.                         }
  647.                     else                
  648.                         gPrintMacAppClassInfo = !gPrintMacAppClassInfo;
  649.                 break;
  650.  
  651.                 case cPrintAppClassInfo:
  652.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  653.                         {
  654.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  655.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pPrAppClassInfo);
  656.                             CTempDesc theNewValue;
  657.                             theNewValue.PutBoolean(!gPrintAppClassInfo);
  658.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  659.                             TAppleEvent * theReply = theEvent -> Send();
  660.                             FreeIfObject(theEvent);
  661.                             FreeIfObject(theReply);
  662.                         }
  663.                     else    
  664.                         gPrintAppClassInfo = !gPrintAppClassInfo;
  665.                 break;
  666.  
  667.                 case cAppUserFlag1:
  668.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  669.                         {
  670.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  671.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pSetAppUserFlag1);
  672.                             CTempDesc theNewValue;
  673.                             theNewValue.PutBoolean(!gAppUserFlag1);
  674.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  675.                             TAppleEvent * theReply = theEvent -> Send();
  676.                             FreeIfObject(theEvent);
  677.                             FreeIfObject(theReply);
  678.                         }
  679.                     else    
  680.                         gAppUserFlag1 = !gAppUserFlag1;
  681.                 break;
  682.                     
  683.                 case cAppUserFlag2:
  684.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  685.                         {
  686.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  687.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pSetAppUserFlag2);
  688.                             CTempDesc theNewValue;
  689.                             theNewValue.PutBoolean(!gAppUserFlag2);
  690.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  691.                             TAppleEvent * theReply = theEvent -> Send();
  692.                             FreeIfObject(theEvent);
  693.                             FreeIfObject(theReply);
  694.                         }
  695.                     else                    
  696.                         gAppUserFlag2 = !gAppUserFlag2;
  697.                 break;
  698.                 
  699.                 case cAppUserFlag3:
  700.                     if (TOSADispatcher::fgDispatcher->GetDefaultTarget()->IsRecordingOn() && gSendAppleEvents)
  701.                         {
  702.                             TSetPropertyEvent *theEvent = new TSetPropertyEvent;
  703.                             theEvent -> ISetPropertyEvent(gServerAddress, kAENoReply, this, pSetAppUserFlag3);
  704.                             CTempDesc theNewValue;
  705.                             theNewValue.PutBoolean(!gAppUserFlag3);
  706.                             theEvent -> WriteParameter(keyAEData, theNewValue);
  707.                             TAppleEvent * theReply = theEvent -> Send();
  708.                             FreeIfObject(theEvent);
  709.                             FreeIfObject(theReply);
  710.                         }
  711.                     else    
  712.                         gAppUserFlag3 = !gAppUserFlag3;
  713.                 break;
  714.             
  715. #endif
  716.  
  717.                 default:
  718.                     Inherited::DoMenuCommand(aCommandNumber);
  719.                 break;
  720.             }    //end switch
  721.         
  722. }
  723. //----------------------------------------------------------------------------------------
  724. //    TTwistDownApp::AddWindowToWindowsMenuList
  725. //----------------------------------------------------------------------------------------    
  726. #pragma segment ARes
  727. void     TTwistDownApp::AddWindowToWindowsMenuList(TWindow* windowToAdd)
  728. {
  729. if (fWindowsMenuList && (fWindowsMenuList->GetIdentityItemNo(windowToAdd) == 0))
  730.     fWindowsMenuList->Insert(windowToAdd);
  731.  
  732. }
  733. //----------------------------------------------------------------------------------------
  734. //    TTwistDownApp::RemoveWindowFromWindowsMenuList
  735. //----------------------------------------------------------------------------------------    
  736. #pragma segment AClose
  737. void     TTwistDownApp::RemoveWindowFromWindowsMenuList(TWindow* windowToRemove)
  738. {
  739.     if (fWindowsMenuList && windowToRemove)
  740.         fWindowsMenuList->Delete(windowToRemove);
  741.  
  742. }
  743. //----------------------------------------------------------------------------------------
  744. //    TTwistDownApp::CountWindowsInList
  745. //----------------------------------------------------------------------------------------    
  746. #pragma segment ARes
  747. short TTwistDownApp::CountWindowsInList()
  748. {
  749.     MAVolatileInit(short, openWindows, 0);
  750.     CWindowsMenuListIterator iter(this);
  751.  
  752.     if (!(fWindowsMenuList -> IsEmpty()))
  753.         for (TWindow* aWindow = iter.FirstWindow(); iter.More(); aWindow = iter.NextWindow())
  754.             if (aWindow)
  755.                 ++openWindows;
  756.             
  757.     return openWindows;
  758.  
  759. }
  760. //----------------------------------------------------------------------------------------
  761. //    TTwistDownApp::DoMakeSplashScreen
  762. //----------------------------------------------------------------------------------------    
  763. #pragma segment AInit
  764. TWindow* TTwistDownApp::DoMakeSplashScreen()
  765. {
  766.  
  767. TWindow* theSplashScreenWindow = NULL;
  768.  
  769. CStr255 aString;
  770.  
  771. this -> GetApplicationName(aString);
  772. MAParamText("^programName", aString);
  773.  
  774. VersRecHndl vers1Info = (VersRecHndl)::GetResource(kVersInfoType, kVers1InfoID);
  775.  
  776. if (vers1Info)
  777.     aString = (**vers1Info).shortVersion;
  778. else
  779.     aString = gEmptyString;
  780.  
  781. MAParamText("^verStr", aString);
  782.  
  783. FailInfo fi;
  784. Try(fi)
  785.     {
  786.         theSplashScreenWindow = gViewServer -> NewTemplateWindow(kAboutBoxWindowID, NULL);
  787.  
  788.         FailNIL(theSplashScreenWindow);
  789.  
  790.         if (theSplashScreenWindow)
  791.             {
  792.                 TStaticText* theProgramNameStaticText = NULL;
  793.                 TStaticText* theCopyrightStaticText = NULL;
  794.     
  795.     
  796.                 theProgramNameStaticText = (TStaticText*) (theSplashScreenWindow -> FindSubView(kAboutProgNameViewID));
  797.                 theCopyrightStaticText = (TStaticText*) (theSplashScreenWindow -> FindSubView(kAboutCopyrightViewID));
  798.     
  799.  
  800.                 TButton* theOKButton = NULL;
  801.                 theOKButton = (TButton*) (theSplashScreenWindow -> FindSubView('ok  '));
  802.                 theSplashScreenWindow -> RemoveSubView(theOKButton);
  803.                 
  804.                 //To create a memory leak, comment out the following statement.        
  805.                 theOKButton = (TButton*)(FreeIfObject(theOKButton));    //otherwise would be orphaned.
  806.                         
  807.                 TDialogBehavior* itsDialogBehavior = theSplashScreenWindow -> GetDialogBehavior();
  808.                 if (itsDialogBehavior)
  809.                     theSplashScreenWindow -> RemoveBehavior (itsDialogBehavior);
  810.                     
  811.                 //To create a memory leak, comment out the following statement.                                
  812.                 itsDialogBehavior = (TDialogBehavior*)(FreeIfObject(itsDialogBehavior));    //otherwise would be orphaned.
  813.  
  814.     
  815.                 TextStyle theTextStyle = gApplicationStyle;
  816.                 CStr255 theFontName = "New Century Schoolbook";
  817.                 short theFontNumber;
  818.                 GetFNum(theFontName, &theFontNumber);
  819.     
  820.                 short theFontSize = 24;
  821.                 if (theFontNumber != 0)
  822.                     theTextStyle.tsFont = theFontNumber;
  823.  
  824.                 theTextStyle.tsSize = theFontSize;
  825.         
  826.                 CRGBColor theColor = gRGBBlue;
  827.     
  828.                 theProgramNameStaticText -> InstallTextStyle(theTextStyle, kDontRedraw);
  829.                 theProgramNameStaticText -> InstallColor(theColor, kDontRedraw);
  830.     
  831.                 theFontSize = 12;
  832.                 theTextStyle.tsSize = theFontSize;
  833.                 theCopyrightStaticText -> InstallTextStyle(theTextStyle, kDontRedraw);
  834.                 theCopyrightStaticText -> InstallColor(theColor, kDontRedraw);
  835.             }
  836.         fi.Success();
  837.     }
  838. else
  839.     {
  840.         theSplashScreenWindow = (TWindow*)(FreeIfObject(theSplashScreenWindow));
  841.         theSplashScreenWindow = NULL;
  842.         fi.ReSignal();
  843.     }
  844.     
  845. return theSplashScreenWindow;
  846.     
  847. }
  848. //----------------------------------------------------------------------------------------
  849. //    TTwistDownApp::DoMakeAboutBox
  850. //----------------------------------------------------------------------------------------    
  851. #pragma segment MAAboutApp
  852. TWindow* TTwistDownApp::DoMakeAboutBox()
  853. {
  854.  
  855. TWindow* theAboutBoxWindow = NULL;
  856.  
  857. CStr255 aString;
  858.  
  859. this -> GetApplicationName(aString);
  860. MAParamText("^programName", aString);
  861.  
  862. VersRecHndl vers1Info = (VersRecHndl)::GetResource(kVersInfoType, kVers1InfoID);
  863.  
  864. if (vers1Info)
  865.     aString = (**vers1Info).shortVersion;
  866. else
  867.     aString = gEmptyString;
  868.  
  869. MAParamText("^verStr", aString);
  870.  
  871. FailInfo fi;
  872. Try(fi)
  873.     {
  874.         theAboutBoxWindow = gViewServer -> NewTemplateWindow(kAboutBoxWindowID, NULL);
  875.  
  876.         FailNIL(theAboutBoxWindow);
  877.  
  878.         if (theAboutBoxWindow)
  879.             {
  880.                 TStaticText* theProgramNameStaticText = NULL;
  881.                 TStaticText* theCopyrightStaticText = NULL;
  882.     
  883.     
  884.                 theProgramNameStaticText = (TStaticText*) (theAboutBoxWindow -> FindSubView(kAboutProgNameViewID));
  885.                 theCopyrightStaticText = (TStaticText*) (theAboutBoxWindow -> FindSubView(kAboutCopyrightViewID));
  886.  
  887.                 TextStyle theTextStyle = gApplicationStyle;
  888.                 CStr255 theFontName = "New Century Schoolbook";
  889.                 short theFontNumber;
  890.                 GetFNum(theFontName, &theFontNumber);
  891.     
  892.                 short theFontSize = 24;
  893.                 if (theFontNumber != 0)
  894.                     theTextStyle.tsFont = theFontNumber;
  895.                 
  896.                 theTextStyle.tsSize = theFontSize;
  897.         
  898.                 CRGBColor theColor = gRGBBlue;
  899.     
  900.                 theProgramNameStaticText -> InstallTextStyle(theTextStyle, kDontRedraw);
  901.                 theProgramNameStaticText -> InstallColor(theColor, kDontRedraw);
  902.     
  903.                 theFontSize = 12;
  904.                 theTextStyle.tsSize = theFontSize;
  905.                 theCopyrightStaticText -> InstallTextStyle(theTextStyle, kDontRedraw);
  906.                 theCopyrightStaticText -> InstallColor(theColor, kDontRedraw);
  907.             }
  908.         fi.Success();
  909.     }
  910. else
  911.     {
  912.         theAboutBoxWindow = (TWindow*)(FreeIfObject(theAboutBoxWindow));
  913.         fi.ReSignal();
  914.     }
  915.     
  916. return theAboutBoxWindow;
  917.     
  918. }
  919. //----------------------------------------------------------------------------------------
  920. //    TTwistDownApp::DoAboutBox
  921. //----------------------------------------------------------------------------------------    
  922. #pragma segment MAAboutApp
  923. void TTwistDownApp::DoAboutBox()
  924. {
  925. TWindow* theAboutBoxWindow = NULL;
  926.  
  927. FailInfo fi;
  928. Try(fi)
  929.     {
  930.         theAboutBoxWindow = this -> DoMakeAboutBox();
  931.                     
  932.         if (theAboutBoxWindow)
  933.             {
  934.                 theAboutBoxWindow -> PoseModally();    
  935.                 theAboutBoxWindow -> CloseAndFree();
  936.             }
  937.         fi.Success();
  938.     }
  939. else
  940.     {
  941.         fi.ReSignal();
  942.     }
  943.  
  944. }
  945. //----------------------------------------------------------------------------------------
  946. // TTwistDownApp::GetStandardFileParameters: 
  947. //----------------------------------------------------------------------------------------
  948. #pragma segment AOpen
  949. void TTwistDownApp::GetStandardFileParameters(CommandNumber itsCommandNumber,ProcPtr& fileFilter,
  950.                                              TypeListHandle& typeList,short& dlgID,CPoint& where,ProcPtr& dlgHook,
  951.                                              ProcPtr& modalFilter,Ptr& activeList,ProcPtr& activateProc,
  952.                                              StandardFileReply* /*reply*/, void*& yourDataPtr)
  953. {
  954.     dlgID = sfGetDialogID;
  955.     where = kBestSystemLocation;
  956.  
  957.     this->GetFileTypeList(itsCommandNumber, typeList);
  958.  
  959.     fileFilter = (ProcPtr)gFileFilterYDProcPtr;
  960.     dlgHook = (ProcPtr)gDlgHookYDProcPtr;
  961.     modalFilter = (ProcPtr)gModalFilterYDProcPtr;
  962.  
  963.     activeList = NULL;
  964.     activateProc = NULL;
  965.     yourDataPtr = NULL;
  966. }
  967. //----------------------------------------------------------------------------------------
  968. // TTwistDownApp::DoOpen: 
  969. //----------------------------------------------------------------------------------------
  970. #pragma segment MAScriptingRes
  971. void TTwistDownApp::DoOpen(CommandNumber theCmdNumber)
  972. {
  973.  
  974. TList* aVolumeList = NULL;    // passed by address
  975.         
  976. if (this -> ChooseVolume(theCmdNumber, &aVolumeList))
  977.     {
  978.         TOVolumeCommand* anOVolumeCommand = new TOVolumeCommand;
  979.         anOVolumeCommand -> IOVolumeCommand(theCmdNumber, aVolumeList);
  980.         if (gSendAppleEvents)
  981.             anOVolumeCommand -> fUseAppleEvent = TRUE;
  982.         this -> PostCommand(anOVolumeCommand);
  983.     }    
  984.  
  985. }
  986. //----------------------------------------------------------------------------------------
  987. // TTwistDownApp::DoScriptCommand:     Scripting Support
  988. //----------------------------------------------------------------------------------------
  989. #pragma segment MAScriptingRes
  990. void TTwistDownApp::DoScriptCommand(CommandNumber    aCommandNumber, TAppleEvent* message, TAppleEvent* reply)
  991. {
  992.     switch (aCommandNumber)
  993.     {
  994.         case cFinderOpen:
  995.             {
  996.                 TOVolumeCommand * anOVolumeCommand = new TOVolumeCommand;
  997.                 anOVolumeCommand->IOVolumeCommand(aCommandNumber, message->fMessage, reply->fMessage);
  998.                 this->PostCommand(anOVolumeCommand);
  999.             }
  1000.             break;
  1001.  
  1002. #if qDebug
  1003.         case cResetObjectCount:
  1004.             {
  1005.                 TResetObjectCountCommand* aResetObjectCountCommand = new TResetObjectCountCommand;
  1006.                 aResetObjectCountCommand -> IResetObjectCountCommand(message -> fMessage, reply -> fMessage);
  1007.                 this -> PostCommand(aResetObjectCountCommand);
  1008.             }
  1009.             break;
  1010. #endif
  1011.  
  1012.         default:
  1013.             {
  1014.                 Inherited::DoScriptCommand(aCommandNumber, message, reply);
  1015.             }
  1016.             break;
  1017.     }
  1018. }
  1019. //----------------------------------------------------------------------------------------
  1020. // TTwistDownApp::CountContainedObjects: 
  1021. //----------------------------------------------------------------------------------------
  1022. #pragma segment MAScriptingRes
  1023.  
  1024. long TTwistDownApp::CountContainedObjects(DescType desiredType)
  1025. {
  1026.     long result = 0;
  1027.  
  1028.     switch (desiredType)
  1029.     {
  1030.         case cTwistDownView:
  1031.             {            
  1032.                 CNoGhostDocsIterator iter(this);
  1033.                 for (TDocument * aDocument = iter.FirstDocument(); iter.More(); aDocument = iter.NextDocument())
  1034.                     if (aDocument -> GetOMClass() == cDocument)
  1035.                         result++;
  1036.             }
  1037.             break;
  1038.  
  1039.         default:
  1040.             {                
  1041.                 result = Inherited::CountContainedObjects(desiredType);
  1042.             }
  1043.             break;
  1044.     }
  1045.  
  1046.     return result;
  1047. }
  1048. //----------------------------------------------------------------------------------------
  1049. // TTwistDownApp::GetContainedObject: 
  1050. //----------------------------------------------------------------------------------------
  1051. #pragma segment OSLDispatchRes
  1052. MScriptableObject* TTwistDownApp::GetContainedObject(DescType desiredType,
  1053.                                                     DescType selectionForm,const CAEDesc& selectionData)
  1054. {
  1055.  
  1056.     MScriptableObject* result = NULL;
  1057.     TTwistDownView* theTwistDownView = NULL;
  1058.     TTwistDownDocument* theTwistDownDocument = NULL;
  1059.     
  1060.     if (desiredType == cTwistDownView && selectionForm == formName)
  1061.     {
  1062.         CStr255 theName;
  1063.         selectionData.GetString(theName);
  1064.         CNoGhostDocsIterator iter(this);
  1065.         for (TDocument* aDocument = iter.FirstDocument(); iter.More(); aDocument = iter.NextDocument())
  1066.             {
  1067.                 if (aDocument != NULL)
  1068.                     {
  1069.                         CStr255 name = gEmptyString;
  1070.                         aDocument -> GetTitle(name);
  1071.                         if (name == theName)
  1072.                             {
  1073.                                 theTwistDownDocument = (TTwistDownDocument*)aDocument;
  1074.                                 theTwistDownView = theTwistDownDocument -> fTwistDownView;
  1075.                                 result = theTwistDownView;
  1076.                                 return result;
  1077.                             }
  1078.                     }
  1079.             }
  1080.                         
  1081.     }
  1082.     else if (desiredType == cDocument && selectionForm == formName)
  1083.     {
  1084. //Note: MacApp 3.3.1 TApplication::GetContainedObject dose not work if a script
  1085. //attempts to get a document that does not exist. In the case where there are
  1086. //no open documents, the result is an access fault. Therefore, I'm using the
  1087. //following substitute code.
  1088.         CStr255    theName;
  1089.         selectionData.GetString(theName);        
  1090.         CNoGhostDocsIterator    iter(this);
  1091.         
  1092.         for (TDocument* aDocument = iter.FirstDocument(); iter.More(); aDocument = iter.NextDocument())
  1093.             {
  1094.                 if (aDocument != NULL)
  1095.                     {
  1096.                         CStr255 name = gEmptyString;
  1097.                         aDocument -> GetTitle(name);
  1098.                         if (name == theName)
  1099.                             {                    
  1100.                                 theTwistDownDocument = (TTwistDownDocument*)aDocument;
  1101.                                 result = theTwistDownDocument;
  1102.                                 return result;
  1103.                             }
  1104.                     }
  1105.             }
  1106.     }
  1107.     else
  1108.         {
  1109.             result = Inherited::GetContainedObject(desiredType, selectionForm, selectionData);
  1110.         }
  1111.     return result;
  1112. }
  1113.  
  1114. //----------------------------------------------------------------------------------------
  1115. // TTwistDownApp::GetSetPropertyInfo:        Scripting Support
  1116. //----------------------------------------------------------------------------------------
  1117. #pragma segment MAScriptingRes
  1118. void TTwistDownApp::GetSetPropertyInfo(DescType whichProperty,CommandNumber& cmdNum,
  1119.                                 Boolean& canUndo,Boolean& causesChange,TCommandHandler* &theContext)
  1120. {
  1121.  
  1122. switch(whichProperty)
  1123.     {
  1124.     
  1125.         case pShowInvisibleFiles:
  1126.             cmdNum = cShowInvisibleFiles;
  1127.             canUndo = FALSE;
  1128.             causesChange = FALSE;
  1129.             theContext = this;
  1130.             break;
  1131.             
  1132.         case pUseSystemDirection:
  1133.             cmdNum = cUseSystemDirection;
  1134.             canUndo = FALSE;
  1135.             causesChange = FALSE;
  1136.             theContext = this;
  1137.             break;
  1138.  
  1139.         case pSendAppleEvents:
  1140.             cmdNum = cSendAppleEvents;
  1141.             canUndo = FALSE;
  1142.             causesChange = FALSE;
  1143.             theContext = this;
  1144.             break;
  1145.  
  1146.         case pFailHere:
  1147.             cmdNum = cFailHere;
  1148.             canUndo = FALSE;
  1149.             causesChange = FALSE;
  1150.             theContext = this;
  1151.             break;
  1152.  
  1153.         case pUnlimitedDocs:
  1154.             cmdNum = cAllowUnlimitedDocs;
  1155.             canUndo = FALSE;
  1156.             causesChange = FALSE;
  1157.             theContext = this;
  1158.             break;
  1159.             
  1160.         case pAERouting:
  1161.             cmdNum = cAppleEventRouting;
  1162.             canUndo = FALSE;
  1163.             causesChange = FALSE;
  1164.             theContext = this;
  1165.             break;
  1166.             
  1167. #if qDebug
  1168.         case pObjectCountingEnabled:
  1169.             cmdNum = cCountObjects;
  1170.             canUndo = FALSE;
  1171.             causesChange = FALSE;
  1172.             theContext = this;
  1173.             break;
  1174.             
  1175.         case pPrBaseClassInfo:
  1176.             cmdNum = cPrintBaseClassInfo;
  1177.             canUndo = FALSE;
  1178.             causesChange = FALSE;
  1179.             theContext = this;
  1180.             break;
  1181.             
  1182.         case pPrMacAppClassInfo:
  1183.             cmdNum = cPrintMacAppClassInfo;
  1184.             canUndo = FALSE;
  1185.             causesChange = FALSE;
  1186.             theContext = this;
  1187.             break;
  1188.             
  1189.         case pPrAppClassInfo:
  1190.             cmdNum = cPrintAppClassInfo;
  1191.             canUndo = FALSE;
  1192.             causesChange = FALSE;
  1193.             theContext = this;
  1194.             break;
  1195.             
  1196.         case pSetAppUserFlag1:
  1197.             cmdNum = cAppUserFlag1;
  1198.             canUndo = FALSE;
  1199.             causesChange = FALSE;
  1200.             theContext = this;
  1201.             break;
  1202.             
  1203.         case pSetAppUserFlag2:
  1204.             cmdNum = cAppUserFlag2;
  1205.             canUndo = FALSE;
  1206.             causesChange = FALSE;
  1207.             theContext = this;
  1208.             break;
  1209.             
  1210.         case pSetAppUserFlag3:
  1211.             cmdNum = cAppUserFlag3;
  1212.             canUndo = FALSE;
  1213.             causesChange = FALSE;
  1214.             theContext = this;
  1215.             break;
  1216. #endif
  1217.         
  1218.         default:
  1219.             Inherited::GetSetPropertyInfo(whichProperty, cmdNum, canUndo, causesChange, theContext);
  1220.             break;
  1221.     }
  1222. }
  1223. //----------------------------------------------------------------------------------------
  1224. // TTwistDownApp::SetObjectProperty: 
  1225. //----------------------------------------------------------------------------------------
  1226. #pragma segment MAScriptingRes
  1227. void TTwistDownApp::SetObjectProperty(const CAEDesc& thePropertyValue,
  1228.                                      DescType whichProperty)
  1229. {
  1230.     Boolean newValue = FALSE;
  1231.     CAEDesc localPropValue = thePropertyValue;
  1232.     switch (whichProperty)
  1233.     {
  1234.         case pShowInvisibleFiles:
  1235.             newValue = thePropertyValue.GetBoolean();                    
  1236.             fShowInvisibleFiles = newValue;            
  1237.             break;
  1238.  
  1239.         case pUseSystemDirection:
  1240.             newValue = thePropertyValue.GetBoolean();                    
  1241.             gUseSystemDirection = newValue;            
  1242.             break;        
  1243.  
  1244.         case pSendAppleEvents:
  1245.             newValue = thePropertyValue.GetBoolean();                    
  1246.             gSendAppleEvents = newValue;            
  1247.             break;        
  1248.  
  1249.         case pFailHere:
  1250.             newValue = thePropertyValue.GetBoolean();                    
  1251.             gFailHere = newValue;            
  1252.             break;
  1253.  
  1254.         case pUnlimitedDocs:
  1255.             newValue = thePropertyValue.GetBoolean();                    
  1256.             fAllowUnlimitedDocs = newValue;            
  1257.             break;
  1258.             
  1259.         case pAERouting:
  1260.             DescType theAERouting = thePropertyValue.GetEnum();    
  1261.             if (theAERouting == kAERouteToDoc)
  1262.                 gAppleEventRouting = routeToDoc;
  1263.             else 
  1264.                 gAppleEventRouting = routeToView;
  1265.             break;    
  1266.  
  1267. #if qDebug            
  1268.         case pObjectCountingEnabled:
  1269.             newValue = thePropertyValue.GetBoolean();
  1270.             gObjectCountingEnabled = newValue;                    
  1271.             break;
  1272.             
  1273.         case pPrBaseClassInfo:
  1274.             newValue = thePropertyValue.GetBoolean();            
  1275.             gPrintBaseClassInfo = newValue;            
  1276.             break;
  1277.             
  1278.         case pPrMacAppClassInfo:
  1279.             newValue = thePropertyValue.GetBoolean();            
  1280.             gPrintMacAppClassInfo = newValue;
  1281.             break;
  1282.             
  1283.         case pPrAppClassInfo:
  1284.             newValue = thePropertyValue.GetBoolean();            
  1285.             gPrintAppClassInfo = newValue;            
  1286.             break;
  1287.             
  1288.         case pSetAppUserFlag1:    
  1289.             newValue = thePropertyValue.GetBoolean();            
  1290.             gAppUserFlag1 = newValue;            
  1291.             break;
  1292.             
  1293.         case pSetAppUserFlag2:
  1294.             newValue = thePropertyValue.GetBoolean();            
  1295.             gAppUserFlag2 = newValue;            
  1296.             break;
  1297.             
  1298.         case pSetAppUserFlag3:
  1299.             newValue = thePropertyValue.GetBoolean();            
  1300.             gAppUserFlag3 = newValue;            
  1301.             break;        
  1302. #endif
  1303.         
  1304.         default:
  1305.             Inherited::SetObjectProperty(thePropertyValue, whichProperty);
  1306.             break;
  1307.     }
  1308. }
  1309. //----------------------------------------------------------------------------------------
  1310. // TTwistDownApp::GetObjectProperty: 
  1311. //----------------------------------------------------------------------------------------
  1312. #pragma segment MAScriptingRes
  1313.  
  1314. Boolean TTwistDownApp::GetObjectProperty(CAEDesc& thePropertyValue,DescType whichProperty,const CAEDesc& desiredType)
  1315. {
  1316.  
  1317. Boolean hasProperty = TRUE;
  1318.  
  1319.     FailInfo fi;
  1320.     Try(fi)
  1321.     {
  1322.         switch (whichProperty)
  1323.         {
  1324.             case pShowInvisibleFiles:
  1325.                 thePropertyValue.PutBoolean(fShowInvisibleFiles);
  1326.                 break;
  1327.  
  1328.             case pUseSystemDirection:
  1329.                 thePropertyValue.PutBoolean(gUseSystemDirection);
  1330.                 break;
  1331.  
  1332.             case pSendAppleEvents:
  1333.                 thePropertyValue.PutBoolean(gSendAppleEvents);
  1334.                 break;
  1335.  
  1336.             case pFailHere:
  1337.                 thePropertyValue.PutBoolean(gFailHere);
  1338.                 break;
  1339.                 
  1340.             case pUnlimitedDocs:
  1341.                 thePropertyValue.PutBoolean(fAllowUnlimitedDocs);
  1342.                 break;
  1343.                 
  1344.             case pAERouting:
  1345.                 DescType theAERouting;
  1346.                 if (gAppleEventRouting == routeToDoc)
  1347.                     theAERouting = kAERouteToDoc;
  1348.                 else
  1349.                     theAERouting = kAERouteToView;    
  1350.                     
  1351.                 thePropertyValue.PutEnum(theAERouting);
  1352.                 break;
  1353.  
  1354. #if qDebug
  1355.             case pObjectCountingEnabled:
  1356.                 thePropertyValue.PutBoolean(gObjectCountingEnabled);
  1357.                 break;    
  1358.                 
  1359.             case pPrBaseClassInfo:
  1360.                 thePropertyValue.PutBoolean(gPrintBaseClassInfo);
  1361.                 break;
  1362.                 
  1363.             case pPrMacAppClassInfo:
  1364.                 thePropertyValue.PutBoolean(gPrintMacAppClassInfo);
  1365.                 break;
  1366.                 
  1367.             case pPrAppClassInfo:
  1368.                 thePropertyValue.PutBoolean(gPrintAppClassInfo);
  1369.                 break;
  1370.                 
  1371.             case pSetAppUserFlag1:
  1372.                 thePropertyValue.PutBoolean(gAppUserFlag1);
  1373.                 break;
  1374.                 
  1375.             case pSetAppUserFlag2:
  1376.                 thePropertyValue.PutBoolean(gAppUserFlag2);
  1377.                 break;
  1378.                 
  1379.             case pSetAppUserFlag3:    
  1380.                 thePropertyValue.PutBoolean(gAppUserFlag3);
  1381.                 break;
  1382. #endif
  1383.  
  1384.             default:
  1385.                 hasProperty = Inherited::GetObjectProperty(thePropertyValue, whichProperty, desiredType);
  1386.                 break;
  1387.         }
  1388.         fi.Success();
  1389.     }
  1390.     else
  1391.     {
  1392.         // we failed while trying to get the property
  1393.         hasProperty = FALSE;
  1394.         
  1395.         // Don't ReSignal
  1396.     }
  1397.     return hasProperty;
  1398. }
  1399.  
  1400. //========================================================================================
  1401. // CLASS TVolumesCommand    analog of TFilesCommand
  1402. //========================================================================================
  1403. #undef Inherited
  1404. #define Inherited TServerCommand
  1405.  
  1406. #pragma segment ASelCommand
  1407. MA_DEFINE_CLASS_M1(TVolumesCommand, Inherited);
  1408.  
  1409. //----------------------------------------------------------------------------------------
  1410. // TVolumesCommand constructor
  1411. //----------------------------------------------------------------------------------------
  1412. #pragma segment ASelCommand
  1413. TVolumesCommand::TVolumesCommand()
  1414. {
  1415.     fCausesChange = FALSE;
  1416.     fVolumeList = NULL;
  1417.  
  1418. #if qDebug
  1419. this -> PrintAppConstructorClassInfo();
  1420. #endif
  1421.  
  1422. }
  1423. //----------------------------------------------------------------------------------------
  1424. // TVolumesCommand::Free: 
  1425. //----------------------------------------------------------------------------------------
  1426. #pragma segment AClose
  1427. TVolumesCommand::~TVolumesCommand()
  1428. {
  1429.     fVolumeList = (TList*)FreeListIfObject(fVolumeList);
  1430. #if qDebug
  1431. this -> PrintAppDestructorClassInfo();
  1432. #endif
  1433.  
  1434. }
  1435. //----------------------------------------------------------------------------------------
  1436. // TVolumesCommand::IVolumesCommand: 
  1437. //----------------------------------------------------------------------------------------
  1438. #pragma segment ASelCommand
  1439. void TVolumesCommand::IVolumesCommand(CommandNumber itsCommandNumber,
  1440.                                   TList* theDocuments)
  1441. {
  1442.  
  1443.     this -> IServerCommand(itsCommandNumber, gApplication, kCantUndo, kDoesNotCauseChange, NULL);
  1444.     fVolumeList = theDocuments;
  1445.     
  1446. } 
  1447. //----------------------------------------------------------------------------------------
  1448. // TVolumesCommand::IVolumesCommand: 
  1449. //----------------------------------------------------------------------------------------
  1450. #pragma segment ASelCommand
  1451. void TVolumesCommand::IVolumesCommand(CommandNumber itsCommandNumber,
  1452.                                   const AppleEvent& itsMessage,
  1453.                                   const AppleEvent& itsReply)    // override 
  1454. {
  1455.     fSuspendTheEvent = TRUE;    //For debugging fun and games, comment this out. Everything
  1456.                                                         //will work fine until you encounter low memory conditions
  1457.                                                         //and fail. Then all bets are off.
  1458.     this -> IServerCommand(itsCommandNumber, gApplication, kCantUndo, kDoesNotCauseChange, NULL,
  1459.                    itsMessage, itsReply);
  1460.     
  1461.     // Check to see what is in the direct object list
  1462.     this -> GetVolumesList();
  1463.  
  1464. }
  1465. //----------------------------------------------------------------------------------------
  1466. // TVolumesCommand::GetVolumesList:    analog of TFilesCommand::GetFilesList:
  1467. //----------------------------------------------------------------------------------------
  1468. #pragma segment ASelCommand
  1469. void TVolumesCommand::GetVolumesList()
  1470. {
  1471.  
  1472.     // Check to see what is in the direct object list
  1473.     CAEDesc directObj;
  1474.     FailOSErr(AEGetParamDesc(&fMessage->fMessage, keyDirectObject, typeAEList, directObj));
  1475.     long theCount = 0;
  1476.     FailOSErr(AECountItems(directObj, &theCount));
  1477.     if (theCount > 0)
  1478.     {
  1479.         // Get the first descriptor and see what type it is
  1480.         DescType theKey;
  1481.         CTempDesc theDesc;
  1482.  
  1483.         FailOSErr(AEGetNthDesc(directObj, 1, typeWildCard, &theKey, theDesc));
  1484.  
  1485.         MAVolatileInit(THandleList*, aHandleList, NULL);
  1486.         MAVolatileInit(TList*, aVolumeList, NULL);
  1487.         
  1488.         FailInfo outerFi;
  1489.         Try(outerFi)
  1490.         {
  1491.             aHandleList = new THandleList;
  1492.             aHandleList->IHandleList();
  1493.     
  1494.             FailInfo innerfi;
  1495.             Try(innerfi)
  1496.             {
  1497.                 aVolumeList = NewList();
  1498.         
  1499.                 fMessage->ReadHandleList(keyDirectObject, typeAlias, aHandleList);
  1500.         
  1501.                 // Block is necessary for correct failure handling
  1502.                 {
  1503.                     CHandleIterator iter(aHandleList);
  1504.         
  1505.                     for (Handle item = iter.FirstHandle(); iter.More(); item = iter.NextHandle())
  1506.                     {
  1507.                         MAVolatileInit(TVolume*, aVolume, NULL);
  1508.         
  1509.                         aVolume = gTwistDownApp -> DoMakeVolume();
  1510.     
  1511.                         FailInfo onemorefi;
  1512.                         Try(onemorefi)
  1513.                         {
  1514.                             FailOSErr(aVolume -> SpecifyWithAlias(AliasHandle(item)));
  1515.                             aVolumeList->InsertLast(aVolume);
  1516.                             onemorefi.Success();
  1517.                         }
  1518.                         else
  1519.                         {
  1520.                             aVolume = (TVolume*)FreeIfObject(aVolume);
  1521.                             onemorefi.ReSignal();
  1522.                         }
  1523.                         
  1524.                         aHandleList->Delete(item);        // Delete it from the list so if we fail
  1525.                                                         // we don't try to free it twice
  1526.                         item = DisposeIfHandle(item);
  1527.                     }
  1528.                 }
  1529.                 innerfi.Success();
  1530.             }
  1531.             else                                        // Recover
  1532.             {
  1533.  
  1534.                 if (aHandleList)
  1535.                     aHandleList->FreeList();
  1536.                     
  1537.                 if (aVolumeList)
  1538.                     aVolumeList->FreeList();
  1539.             
  1540.                 innerfi.ReSignal();
  1541.             }
  1542.             outerFi.Success();
  1543.         }
  1544.         else
  1545.         {
  1546.  
  1547.             this->Free();
  1548.             outerFi.ReSignal();
  1549.         }
  1550.     
  1551.         aHandleList->Free();                        // It is just a list of disposed handles…
  1552.     
  1553.         fVolumeList = aVolumeList;
  1554.         directObj.DisposeDesc();
  1555.     }
  1556.  
  1557. } 
  1558. //========================================================================================
  1559. // CLASS TOVolumeCommand    analog of TODocCommand
  1560. //========================================================================================
  1561. #undef Inherited
  1562. #define Inherited TVolumesCommand
  1563.  
  1564. #pragma segment ASelCommand
  1565. MA_DEFINE_CLASS_M1(TOVolumeCommand, Inherited);
  1566.  
  1567. //----------------------------------------------------------------------------------------
  1568. // TOVolumeCommand: Empty constructor to satisfy the compiler.
  1569. //----------------------------------------------------------------------------------------
  1570. #pragma segment ASelCommand
  1571. TOVolumeCommand::TOVolumeCommand()
  1572. {
  1573. #if qDebug
  1574. this -> PrintAppConstructorClassInfo();
  1575. #endif
  1576. }
  1577. //----------------------------------------------------------------------------------------
  1578. // TOVolumeCommand destructor
  1579. //----------------------------------------------------------------------------------------
  1580. #pragma segment ASelCommand
  1581. TOVolumeCommand::~TOVolumeCommand()
  1582. {
  1583. #if qDebug
  1584. this -> PrintAppDestructorClassInfo();
  1585. #endif
  1586. }
  1587. //----------------------------------------------------------------------------------------
  1588. // TOVolumeCommand::IOVolumeCommand: 
  1589. //----------------------------------------------------------------------------------------
  1590. #pragma segment ASelCommand
  1591. void TOVolumeCommand::IOVolumeCommand(CommandNumber itsCommandNumber,
  1592.                                 TList* theDocuments)
  1593. {
  1594. this->IVolumesCommand(itsCommandNumber, theDocuments);
  1595. }
  1596. //----------------------------------------------------------------------------------------
  1597. // TOVolumeCommand::IOVolumeCommand: 
  1598. //----------------------------------------------------------------------------------------
  1599. #pragma segment ASelCommand
  1600. void TOVolumeCommand::IOVolumeCommand(CommandNumber itsCommandNumber, const AppleEvent& itsMessage, const AppleEvent& itsReply)
  1601. {
  1602. this->IVolumesCommand(itsCommandNumber, itsMessage, itsReply);
  1603. }
  1604. //----------------------------------------------------------------------------------------
  1605. // TOVolumeCommand::DoIt: 
  1606. //----------------------------------------------------------------------------------------
  1607. #pragma segment AOpen
  1608. void TOVolumeCommand::DoIt()
  1609. {
  1610.     gTwistDownApp -> OpenVolume(fIdentifier, fVolumeList);
  1611. }
  1612. //----------------------------------------------------------------------------------------
  1613. // TOVolumeCommand::MakeAppleEvent: 
  1614. //----------------------------------------------------------------------------------------
  1615. #pragma segment MACommandRes
  1616. TAppleEvent* TOVolumeCommand::MakeAppleEvent()
  1617. {
  1618.     MAVolatileInit(TAppleEvent*, theEvent, NULL);
  1619.     CTempDesc theList;
  1620.  
  1621.     FailInfo fi;
  1622.     Try(fi)
  1623.     {
  1624.         theEvent = new TAppleEvent;
  1625.         theEvent->IAppleEvent(kCoreEventClass, kAEOpenDocuments, gServerAddress, kAEWaitReply);
  1626.         theList.CreateList();
  1627.         {
  1628.             CObjectIterator iter(fVolumeList);
  1629.             for (TVolume * aVolume = (TVolume *)iter.FirstObject(); iter.More(); aVolume = (TVolume *)iter.NextObject())
  1630.             {
  1631.                 AliasHandle theAlias = NULL;
  1632.                 OSErr theErr = aVolume -> GetAlias(theAlias);
  1633.                 if (theErr == noErr)
  1634.                 {
  1635.                     CAEDesc theAliasDesc(typeAlias, (Handle)theAlias);
  1636.                     theList.PutListItem(0, theAliasDesc);
  1637.                 }
  1638.             }
  1639.         }
  1640.         theEvent->WriteParameter(keyDirectObject, theList);
  1641.         fi.Success();
  1642.     }
  1643.     else                                // Recover
  1644.     {
  1645.         theEvent = (TAppleEvent *)FreeIfObject(theEvent);
  1646.         fi.ReSignal();
  1647.     }
  1648.     return theEvent;
  1649. }
  1650. //========================================================================================
  1651. // CLASS TOpenVolumeCommand - old version, not used
  1652. //========================================================================================
  1653. #undef Inherited
  1654. #define Inherited TCommand
  1655.  
  1656. #pragma segment ASelCommand
  1657. MA_DEFINE_CLASS_M1(TOpenVolumeCommand, Inherited);
  1658.  
  1659. //----------------------------------------------------------------------------------------
  1660. // TOpenVolumeCommand: Empty constructor to satisfy the compiler. - old version
  1661. //----------------------------------------------------------------------------------------
  1662. #pragma segment ASelCommand
  1663. TOpenVolumeCommand::TOpenVolumeCommand()
  1664. {
  1665. fVolume = NULL;
  1666.  
  1667. #if qDebug
  1668. this -> PrintAppConstructorClassInfo();
  1669. #endif
  1670. }
  1671. //----------------------------------------------------------------------------------------
  1672. // TOpenVolumeCommand destructor - old version
  1673. //----------------------------------------------------------------------------------------
  1674. #pragma segment ASelCommand
  1675. TOpenVolumeCommand::~TOpenVolumeCommand()
  1676. {
  1677. fVolume = NULL;
  1678.  
  1679. #if qDebug
  1680. this -> PrintAppDestructorClassInfo();
  1681. #endif
  1682. }
  1683. //----------------------------------------------------------------------------------------
  1684. // TOpenVolumeCommand::IOpenVolumeCommand:  - old version
  1685. //----------------------------------------------------------------------------------------
  1686. #pragma segment ASelCommand
  1687. void TOpenVolumeCommand::IOpenVolumeCommand(CommandNumber itsCommandNumber,TVolume* theVolume)
  1688. {
  1689. this -> ICommand(itsCommandNumber, NULL,kCantUndo,kDoesNotCauseChange,NULL);
  1690. fVolume = theVolume;
  1691. }
  1692. //----------------------------------------------------------------------------------------
  1693. // TOpenVolumeCommand::DoIt:  - old version
  1694. //----------------------------------------------------------------------------------------
  1695. #pragma segment AOpen
  1696. void TOpenVolumeCommand::DoIt()
  1697. {
  1698.  
  1699.     gTwistDownApp -> OpenVolume(fIdentifier, fVolume);    
  1700.  
  1701. }
  1702.  
  1703. #if qDebug
  1704. //========================================================================================
  1705. // CLASS TResetObjectCountCommand
  1706. //========================================================================================
  1707. #undef Inherited
  1708. #define Inherited TServerCommand
  1709.  
  1710. #pragma segment ASelCommand
  1711. MA_DEFINE_CLASS_M1(TResetObjectCountCommand, Inherited);
  1712.  
  1713. //----------------------------------------------------------------------------------------
  1714. // TResetObjectCountCommand constructor
  1715. //----------------------------------------------------------------------------------------
  1716. #pragma segment ASelCommand
  1717. TResetObjectCountCommand::TResetObjectCountCommand()
  1718. {
  1719. #if qDebug
  1720. this -> PrintAppConstructorClassInfo();
  1721. #endif
  1722. }
  1723. //----------------------------------------------------------------------------------------
  1724. // TResetObjectCountCommand::Free: 
  1725. //----------------------------------------------------------------------------------------
  1726. #pragma segment AClose
  1727. TResetObjectCountCommand::~TResetObjectCountCommand()
  1728. {
  1729. #if qDebug
  1730. this -> PrintAppDestructorClassInfo();
  1731. #endif
  1732. }
  1733. //----------------------------------------------------------------------------------------
  1734. // TResetObjectCountCommand::IResetObjectCountCommand: 
  1735. //----------------------------------------------------------------------------------------
  1736. #pragma segment ASelCommand
  1737. void TResetObjectCountCommand::IResetObjectCountCommand()
  1738. {
  1739.     this -> IServerCommand(cResetObjectCount, gTwistDownApp, kCantUndo, kDoesNotCauseChange, NULL);
  1740. } 
  1741. //----------------------------------------------------------------------------------------
  1742. // TResetObjectCountCommand::IResetObjectCountCommand: 
  1743. //----------------------------------------------------------------------------------------
  1744. #pragma segment ASelCommand
  1745. void TResetObjectCountCommand::IResetObjectCountCommand(const AppleEvent& itsMessage,const AppleEvent& itsReply)
  1746. {                                                                
  1747. fSuspendTheEvent = TRUE;    //For debugging fun and games, comment this out. Everything
  1748.                                                     //will work fine until you encounter low memory conditions
  1749.                                                     //and fail. Then all bets are off. Note that it must be set
  1750.                                                     //before IServerCommand is called.
  1751.                                                     
  1752. this -> IServerCommand(cResetObjectCount, gTwistDownApp, kCantUndo, kDoesNotCauseChange, NULL,
  1753.                    itsMessage, itsReply);
  1754.     
  1755. }
  1756. //----------------------------------------------------------------------------------------
  1757. // TResetObjectCountCommand::MakeAppleEvent: 
  1758. //----------------------------------------------------------------------------------------
  1759. #pragma segment ASelCommand
  1760. TAppleEvent* TResetObjectCountCommand::MakeAppleEvent()
  1761. {
  1762.     MAVolatileInit(TAppleEvent*, theResetObjectCountEvent, NULL);
  1763.     
  1764.     FailInfo fi;
  1765.         Try(fi)
  1766.         {
  1767.             theResetObjectCountEvent = new TAppleEvent;
  1768.             theResetObjectCountEvent -> IAppleEvent(kAETwistDownListsSuite, kAEResetObjectCountID,gServerAddress, kAENoReply);
  1769.             {
  1770.                 CTempDesc    directObjectDesc;
  1771.                 gTwistDownApp -> MakeObjectSpecifier(directObjectDesc, gTwistDownApp -> GetSpecifierForm());
  1772.                 theResetObjectCountEvent -> WriteParameter(keyDirectObject, directObjectDesc);
  1773.             }
  1774.             fi.Success();
  1775.         }
  1776.         else // Recover
  1777.         {
  1778.             theResetObjectCountEvent = (TAppleEvent *)FreeIfObject(theResetObjectCountEvent);
  1779.             fi.ReSignal();
  1780.         }
  1781.         
  1782.     return theResetObjectCountEvent;
  1783. }
  1784. //----------------------------------------------------------------------------------------
  1785. //    TResetObjectCountCommand::DoIt:    
  1786. //----------------------------------------------------------------------------------------
  1787. #pragma segment ADoCommand
  1788. void TResetObjectCountCommand::DoIt()
  1789. {
  1790. gObjectCount = 1;    //Must set to 1 to account for this object, TResetObjectCountCommand,
  1791.                                     //being freed. 
  1792. }
  1793. #endif
  1794. //========================================================================================
  1795. // CLASS TSplashScreenCommand
  1796. //========================================================================================
  1797. #undef Inherited
  1798. #define Inherited TCommand
  1799.  
  1800. #pragma segment AInit
  1801. MA_DEFINE_CLASS_M1(TSplashScreenCommand, Inherited);
  1802.  
  1803. //----------------------------------------------------------------------------------------
  1804. // TSplashScreenCommand::TSplashScreenCommand
  1805. //----------------------------------------------------------------------------------------
  1806. #pragma segment AInit
  1807. TSplashScreenCommand::TSplashScreenCommand()
  1808. {
  1809. fSplashScreenWindow = NULL;
  1810.  
  1811. #if qDebug
  1812. this -> PrintAppConstructorClassInfo();
  1813. #endif
  1814.  
  1815. }
  1816. //----------------------------------------------------------------------------------------
  1817. // TSplashScreenCommand destructor
  1818. //----------------------------------------------------------------------------------------
  1819. #pragma segment AInit
  1820. TSplashScreenCommand::~TSplashScreenCommand()
  1821. {
  1822. if (fSplashScreenWindow)
  1823.     fSplashScreenWindow = (TWindow*)(FreeIfObject(fSplashScreenWindow));
  1824.  
  1825. fSplashScreenWindow = NULL;
  1826.  
  1827. #if qDebug
  1828. this -> PrintAppDestructorClassInfo();
  1829. #endif
  1830.  
  1831. }
  1832. //----------------------------------------------------------------------------------------
  1833. // TSplashScreenCommand::ISplashScreenCommand: 
  1834. //----------------------------------------------------------------------------------------
  1835. #pragma segment AInit
  1836. void TSplashScreenCommand::ISplashScreenCommand(CommandNumber itsCommandNumber)
  1837. {                                
  1838. this -> ICommand(itsCommandNumber, NULL, kCantUndo, kDoesNotCauseChange, NULL);
  1839.  
  1840. FailInfo fi;
  1841. Try(fi)
  1842.     {
  1843.         fSplashScreenWindow = gTwistDownApp -> DoMakeSplashScreen();
  1844.         fi.Success();
  1845.     }
  1846. else
  1847.     {
  1848.         fSplashScreenWindow = (TWindow*)(FreeIfObject(fSplashScreenWindow));
  1849.         fi.ReSignal();
  1850.     }
  1851. }
  1852. //----------------------------------------------------------------------------------------
  1853. // TSplashScreenCommand::DoIt: 
  1854. //----------------------------------------------------------------------------------------
  1855. #pragma segment AInit
  1856. void TSplashScreenCommand::DoIt()
  1857. {
  1858.  
  1859. if (fSplashScreenWindow)
  1860.     {
  1861.         fSplashScreenWindow -> Open();
  1862.         fSplashScreenWindow -> Update();
  1863.  
  1864.         long theTickCount;
  1865.         Delay(60, &theTickCount);
  1866.         
  1867.         fSplashScreenWindow -> CloseAndFree();
  1868.         fSplashScreenWindow = NULL;
  1869.     }
  1870. }
  1871.  
  1872. #pragma segment Inline